home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 13 / Big_Mouth_The_13_1996_-_Side_C.d64 / life (.txt) next >
Commodore BASIC  |  2023-02-26  |  3KB  |  61 lines
  1. 0 rem *****    game of life       ****
  2. 5 rem ***** (c) s.j.walters 1991  ****
  3. 7 rem ***** (c)light disk64 1992 ****
  4. 8 rem
  5. 9 rem *****   main   ******
  6. 10 poke 650,128
  7. 11 fori=49152to49445     :reada:pokei,a:next
  8. 15 data169,0,133,249,133,250
  9. 20 data169,128,133,251,133,253,169,3,133,252,169,199,133,254,162,0
  10. 25 data165,249,201,0,240,15,165,250,201,0,240,9
  11. 30 data160,87,177,251,201,32,240,1,232
  12. 35 data165,250,201,0,240,9
  13. 40 data160,88,177,251,201,32,240,1,232
  14. 45 data165,249,201,39,240,15,165,250,201,0,240,9
  15. 50 data160,89,177,251,201,32,240,1,232
  16. 55 data165,249,201,0,240,9
  17. 60 data160,127,177,251,201,32,240,1,232
  18. 65 data165,249,201,39,240,9
  19. 70 data160,129,177,251,201,32,240,1,232
  20. 75 data165,249,201,0,240,15,165,250,201,24,240,9
  21. 80 data160,167,177,251,201,32,240,1,232
  22. 85 data165,250,201,24,240,9
  23. 90 data160,168,177,251,201,32,240,1,232
  24. 95 data165,249,201,39,240,15,165,250,201,24,240,9
  25. 100 data160,169,177,251,201,32,240,1,232
  26. 105 data160,128,138,145,253,230,249,165,249,201,40,208,6 ,230,250,169,0,133,249
  27. 110 data230,251,230,253,208,4 ,230,252,230,254,165,252,201
  28. 120 data7,208,9 ,165,251,201,104,208,3 ,24,144,3  ,76,20 ,192
  29. 130 data169,200,133,254,169,0,133,253,169,4,133,252,169,0,133,251,160,0
  30. 140 data177,253,201,2,240,11,162,81,201,3,240,2 ,162,32,138,145,251,200,208,4
  31. 150 data230,252,230,254,165,252,201,7,208,226,192,232,208,222
  32. 155 data169,0,133,198
  33. 157 data165,203,201,4,208,3,32,92,193
  34. 160 data165,203,201,60,240,250
  35. 170 data 165,203,201,63,240,3,76,0,192,96
  36. 190 rem *****  start  ******
  37. 200 for i=49450to49473 :reada:pokei,a:next
  38. 205 data32,92,193,32,0,192,162,0,160,0,24,32,240,255
  39. 210 data32,207,255,201,13,208,249
  40. 215 data76,45,193
  41. 300 rem ******   random   *******
  42. 310 fori=49500to49551:reada:pokei,a:next
  43. 315 data169,5,32,210,255,169,147,32,210,255,169,0,141,33,208
  44. 320 data169,255,141,15,212,169,128,141,18,212
  45. 330 data162,0,169,32,172,27,212,16,2,169,81
  46. 340 data157,0,4,157,0,5,157,0,6,157,0,7,232,208,232,96
  47. 499 :
  48. 500 rem ** instructions ** typed by white demon **
  49. 505 print"[147]"tab(17)" life "
  50. 510 printtab(14)"instructions"
  51. 515 print"f1 - generate random population"
  52. 520 print"run/stop - make your own population"
  53. 525 print"when making your own population, use any"
  54. 530 print"[145]letter, number or symbol to put down"
  55. 535 print"'people' on the screen. use space to"
  56. 540 print"remove people. shift & clr/home clears  the screen"
  57. 545 print"when you are satisfied, press return to begin  life "
  58. 550 print""tab(12)" press spacebar "
  59. 555 get a$:if a$<>chr$(32) then 555
  60. 1000 sys49450
  61.